home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
list 4 (error)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
654b
|
19 lines
10 REM ********************************
11 REM * E R R O R *
12 REM ********************************
13 REM * ERGAENZUNG ZU SIMON'S BASIC *
14 REM * FORMAT: d~OR *
15 REM * GIBT drSTATUS AUS *
16 REM * > BEISPIEL: d~OR *
17 REM * ERGEBNIS: 00, OK,00,00 *
18 REM ********************************
19 K=0:PRINT" E R R O R [146] ?CHECKSUM ";
20 FORI=$BFBB TO $BFE2:READ J:POKE I,J:K=K+J:NEXT
21 DATA32,115,,201,176,240,3,76,138,136
22 DATA169,8,133,186,32,180,255,169,111
23 DATA133,185,32,150,255,32,165,255,32
24 DATA210,255,201,13,208,246,32,171
25 DATA255,76,116,145
26 POKE$87BE,186:POKE$87BF,191
27 IFK=5527THENPRINT"OK":dG:PRINT"ERROR"